home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / n_b_v203.zip / VBOX_ALL.DMO < prev    next >
Text File  |  1996-07-04  |  3KB  |  63 lines
  1. $if 0
  2.     ┌──────────────────────────╖                        PowerBASIC v3.20
  3.  ┌──┤          DASoft          ╟──────────────────────┬──────────────────╖
  4.  │  ├──────────────────────────╢    Copyright 1995    │ DATE: 1995-10-01 ╟─╖
  5.  │  │ FILE NAME   VBOX_ALL.DMO ║          by          ╘════════════════─ ║ ║
  6.  │  │                          ║  Don Schullian, Jr.                     ║ ║
  7.  │  ╘══════════════════════════╝                                         ║ ║
  8.  │ A license is hereby granted to the holder to use this source code in  ║ ║
  9.  │ any program, commercial or otherwise,  without receiving the express  ║ ║
  10.  │ permission of the copyright holder and without paying any royalties,  ║ ║
  11.  │ as long as this code is not distributed in any compilable format.     ║ ║
  12.  │  IE: source code files, PowerBASIC Unit files, and printed listings   ║ ║
  13.  ╘═╤═════════════════════════════════════════════════════════════════════╝ ║
  14.    │                ....................................                   ║
  15.    ╘═══════════════════════════════════════════════════════════════════════╝
  16. $endif
  17.  
  18. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  19. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  20. $INCLUDE "DAS-NB01.INC"
  21. $INCLUDE "DAS-NB02.INC"
  22. $INCLUDE "DAS-NBV1.INC"
  23. $INCLUDE "DAS-NBV2.INC"
  24. $INCLUDE "DAS-NBV3.INC"
  25.  
  26. SCREEN 12
  27. GraphicSETUP
  28.  
  29. ? "┌───────────────────────────────────────────────────────────────────────
  30. ? "│ VBoxBevel ( Row?, Col?, Rows?, Cols?, Depth?, BXa?, TLa?, BRa? )
  31. ? "│ VBoxEtch  ( Row?, Col?, Rows?, Cols?, BXa?, TLa?, BRa? )
  32. ? "│ VBoxEvent ( Row?, Col?, Rows?, Cols?, BXa?, TLa?, BRa? )
  33. ? "├────────────────────────────────────────────────────────────────────────
  34. ? "│ These routines call their namesakes (GBoxXXXX) but use Row/Col text mode
  35. ? "│ style parameters. They also attempt to get the boxes looking right by
  36. ? "│ putting the horizontal lines in the middle of the character box.
  37. ? "│ Of course, the DASoft 3-D color system works best as it offers
  38. ? "│ 5 complete sets of colors to work with.
  39. ? "└─────────────────────────────────────────────────────────────────────────
  40.  
  41. IF NOT fVfontLoad%( "DMO\V-FONT.850" ) THEN
  42.   PRINT "CAN'T FIND THE FONT FILE"
  43.   END
  44. END IF
  45. OldPalette$ = fLoadDAScolor$
  46.  
  47. VBoxBevel 12, 10, 3, 14, 4, 4, 9, 14
  48. fVprint   13, 11, "Å yellow dog", 79
  49.  
  50. VBoxEtch  15, 10, 3, 14, 3, 8, 13
  51. fVprint   16, 11, "Å yellow dog", 48
  52.  
  53. VBoxEvent 18, 10, 3, 14, 15, 9, 1
  54. fVprint   19, 11, "Å yellow dog", 240
  55.  
  56. fAnyKey
  57. CLS
  58. DACwriteSTR OldPalette$
  59. PALETTE
  60. SCREEN 0
  61.  
  62.  
  63.